cdosys cdonts question

I guess I should change from cdonts to cdosys. Since I am ignorant about asp I
hope you forgive this basic question. There are two asp files for handling
mail, the one that gets the info from a form and creates a form.asp to mail and
the one that takes that file and mails it, mail.asp.

I believe I can figure out what needs to be altered in the code for the first
form.asp but what needs to be changed in the one that sends the email? Is it
just this in the following code and if so just what should it read?

Thanks

Harvey

This is the 'mail.asp' file I use currently with cdonts.

Set objCDO = Server.CreateObject("CDONTS.NewMail")

'change this to the appropriate http
Const strHTTP = "http://www.righttax.org/"

'get current date
strDate = Date()

'get form information
strFormName = Request("FormName")
strSubject = Request("subject")
strSendTo = Request("SendTo")

strName = Request("txtName")
strPhone = Request("txtPhone")

'if no information entered for email use your own
if instr(Request("txtEmail"), "@") <> 0 then
strFrom = Request("txtEmail")
else
strFrom = strSendTo
end if

'concat URL information
strURLInfo = strHTTP & strFormName & "?" & Request.Form()

'create the HTML for email
strHTML = " "
strHTML = strHTML & ""
strHTML = strHTML & "

BORDER=0>

" strHTML = strHTML & " Date: " & strDate strHTML = strHTML & " Subject: " & strSubject strHTML = strHTML & " Requested by: " & strName strHTML = strHTML & " Phone: " & strPhone if strFrom <> strSendTo then strHTML = strHTML & " Email: " & strFrom & "" else strHTML = strHTML & " Email: UNKNOWN" end if 'add hyperlink to form in email strHTML = strHTML & " " strHTML = strHTML & "Click here" strHTML = strHTML & " to view completed form." strHTML = strHTML & "

Re: cdosys cdonts question

See comments inline


"Dr. Harvey Waxman" wrote in message
news:spaminfo-3F804D.11284606122006@news.lga.highwinds-media .com...
>I guess I should change from cdonts to cdosys. Since I am ignorant about
>asp I
> hope you forgive this basic question. There are two asp files for
> handling
> mail, the one that gets the info from a form and creates a form.asp to
> mail and
> the one that takes that file and mails it, mail.asp.
>
> I believe I can figure out what needs to be altered in the code for the
> first
> form.asp but what needs to be changed in the one that sends the email? Is
> it
> just this in the following code and if so just what should it read?
>
> Thanks
>
> Harvey
>
> This is the 'mail.asp' file I use currently with cdonts.
>
> Set objCDO = Server.CreateObject("CDONTS.NewMail")

Get rid of the above line - it's repeated later and at a more appropriate
point - ie just before you use the object you are creating.

>
> 'change this to the appropriate http
> Const strHTTP = "http://www.righttax.org/"
>
> 'get current date
> strDate = Date()
>
> 'get form information
> strFormName = Request("FormName")
> strSubject = Request("subject")
> strSendTo = Request("SendTo")
>
> strName = Request("txtName")
> strPhone = Request("txtPhone")
>
> 'if no information entered for email use your own
> if instr(Request("txtEmail"), "@") <> 0 then
> strFrom = Request("txtEmail")
> else
> strFrom = strSendTo
> end if
>

Change all these Request("something") to Request.Form("something") or
Request.Querystring("something") - whichever collection you are using (not
germane to using CDO, but you should do this)


> 'concat URL information
> strURLInfo = strHTTP & strFormName & "?" & Request.Form()
>
> 'create the HTML for email
> strHTML = " "
> strHTML = strHTML & ""
> strHTML = strHTML & "

> BORDER=0>

" > strHTML = strHTML & " Date: " & strDate > strHTML = strHTML & " Subject: " & strSubject > strHTML = strHTML & " Requested by: " & strName > strHTML = strHTML & " Phone: " & strPhone > > if strFrom <> strSendTo then > strHTML = strHTML & " Email: " & > strFrom & "" > else > strHTML = strHTML & " Email: UNKNOWN" > end if > > 'add hyperlink to form in email > strHTML = strHTML & " " > strHTML = strHTML & "Click here" > strHTML = strHTML & " to view completed form." > strHTML = strHTML & "

> > BORDER=0>

" > > strHTML = strHTML & " Date: " & strDate > > strHTML = strHTML & " Subject: " & strSubject > > strHTML = strHTML & " Requested by: " & strName > > strHTML = strHTML & " Phone: " & strPhone > > > > if strFrom <> strSendTo then > > strHTML = strHTML & " Email: " & > > strFrom & "" > > else > > strHTML = strHTML & " Email: UNKNOWN" > > end if > > > > 'add hyperlink to form in email > > strHTML = strHTML & " " > > strHTML = strHTML & "Click here" > > strHTML = strHTML & " to view completed form." > > strHTML = strHTML & "

>> > BORDER=0>

" >> > strHTML = strHTML & " Date: " & strDate >> > strHTML = strHTML & " Subject: " & strSubject >> > strHTML = strHTML & " Requested by: " & strName >> > strHTML = strHTML & " Phone: " & strPhone >> > >> > if strFrom <> strSendTo then >> > strHTML = strHTML & " Email: " & >> > strFrom & "" >> > else >> > strHTML = strHTML & " Email: UNKNOWN" >> > end if >> > >> > 'add hyperlink to form in email >> > strHTML = strHTML & " " >> > strHTML = strHTML & "Click here" >> > strHTML = strHTML & " to view completed form." >> > strHTML = strHTML & "